home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / getdosv.zip / GETDOSV.FUN
Text File  |  1991-06-04  |  341b  |  15 lines
  1. 'PowerBASIC function to return DOS version
  2. 'CopyRight 1991 by Dave Navarro, Jr.
  3. 'Last Revision: June 3, 1991
  4.  
  5. 'GetDosV% - Returns DOS version number, Example: 3.3 = 330
  6.  
  7. FUNCTION GetDosV% PUBLIC
  8.     REG 1, &h3000
  9.     CALL INTERRUPT &h21
  10.     Ver%=REG(1)/256
  11.     MVer%=REG(1)-(Ver%*256)
  12.     GetDosV%=MVer%*100+Ver%
  13. END FUNCTION
  14.  
  15.